(defun abbrev-windows-regitser()
  (interactive)
  (insert "[HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Winlogon]
\"Shell\"=\"explorer.exe\"")
  )

(defun abbrev-windows-caps-ctrl()
  (interactive)
  (insert "Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Control\\Keyboard Layout]
\"Scancode Map\"=hex:00,00,00,00,00,00,00,00,02,00,00,00,1d,00,3a,00,00,00,00,00\"")
  )



;; (setq begin-end (bounds-of-thing-at-point 'symbol))abcd
;; (buffer-substring-no-properties (car begin-end) (cdr begin-end))abc

(defun token-help()
  (interactive)
  (setq begin-end (bounds-of-thing-at-point 'symbol))
  (setq symbol-to-lookup (downcase (buffer-substring-no-properties (car begin-end) (cdr begin-end))))
  (setq current-mode (current-major-mode))
  (setq my-lib-path "d:/workspace/c/my-lib/lisp/lang/")  
  (setq my-lib-expand-path (concat my-lib-path (symbol-name current-mode) "/" symbol-to-lookup))

  (switch-to-buffer-other-window "*Help*")
  (funcall current-mode)
  (erase-buffer)
  (if (file-exists-p my-lib-expand-path)
      (insert-file my-lib-expand-path))
)







